home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / loadIn.dxr / Graphics_7_TutorialButton.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  595 b   |  27 lines
  1. property mySprite, ancestor, myType
  2.  
  3. on beginSprite me
  4.   global gActorListMan
  5.   mySprite = me.spriteNum
  6.   sprite(mySprite).visible = 0
  7.   myType = #tutorialButton
  8.   ancestor = new(script("twoStateButtonActions"))
  9.   registerSprite(gActorListMan, mySprite)
  10. end
  11.  
  12. on mouseUp me
  13.   global gClickSprite, gTutorialInProgress
  14.   if gClickSprite = mySprite then
  15.     doButtonUpClick(myType, 1)
  16.     outPut("Tutorial selected")
  17.     gTutorialInProgress = 1
  18.     go(the frame + 1)
  19.   end if
  20. end
  21.  
  22. on endSprite me
  23.   global gActorListMan
  24.   unRegisterSprite(gActorListMan, mySprite)
  25.   sprite(mySprite).visible = 1
  26. end
  27.